home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ MSDOSSYS 3.xpl < prev    next >
Text File  |  1998-08-08  |  2KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="ScanDisk Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Never start ScanDisk"
  8. "TEXT 2"="Start ScanDisk after displaying a warning"
  9. "TEXT 3"="Start ScanDisk without warning"
  10. "DESCRIPTION 1"="If Windows detects that your PC has crashed, it starts ScanDisk while booting to correct any HD failures."
  11. "DESCRIPTION 2"="Only set this option to "Never" if you are really sure what you do!"
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  15. "COMMENT 2"="Version 1.1"
  16.  
  17.  
  18. '0 => never
  19. '1 => w/ warning
  20. '2 => no warning
  21.  
  22. sF="C:\MSDOS.SYS"
  23. sO="OPTIONS"
  24.  
  25. Sub Plugin_Initialize 
  26.  If GetWinVer=1 or GetWinVer=3 then
  27.   Call FileSetAttribute(sf,"S-")
  28.   Call FileSetAttribute(sf,"R-")
  29.   Call FileSetAttribute(sf,"H-")
  30.  
  31.   i=IniReadValue(sf,so,"AutoScan")
  32.   'If IsEmpty(i) then
  33.   ' 'Win 95 A don't like this parameter....
  34.   ' Disable
  35.   'else
  36.    if i=0 then 
  37.     SetUIElement 1,true
  38.    else
  39.     if i=1 then
  40.      SetUIElement 2,true
  41.     else
  42.      SetUIElement 3,true
  43.     end if
  44.    end if
  45.   'end if
  46.  else
  47.   Disable
  48.  end if
  49. End Sub
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  55.  b=GetUIElement(1)
  56.  if b=true then
  57.   Call IniWriteValue(sf,so,"AutoScan",0)
  58.  else 
  59.   b=GetUIElement(2)
  60.   if b=true then
  61.    Call IniWriteValue(sf,so,"AutoScan",1)
  62.   else
  63.    Call IniWriteValue(sf,so,"AutoScan",2)
  64.   end if
  65.  end if
  66.  
  67.  Restart
  68. End Sub
  69.  
  70.  
  71. Sub Plugin_Terminate 
  72.  Call FileSetAttribute("C:\MSDOS.SYS","S+")
  73.  Call FileSetAttribute("C:\MSDOS.SYS","R+")
  74.  Call FileSetAttribute("C:\MSDOS.SYS","H+")
  75. End Sub
  76.  
  77.  
  78.  
  79.